Razeni v ListView II

Otázka od: Vymazal Milan

20. 10. 2002 21:14

Zdravim

konferenci

pred casem jsem se ptal na razeni cisel v ListView v prvnim columns
(caption). To jsem na radu jednoho ucastnika teto konference (diky)
udelal takto:

function CustomSortProc1(Item1, Item2: TListItem; ParamSort: integer): integer;
stdcall;
var
  c1,c2:integer;
begin
  try
    c1:=StrToInt(Item1.Caption);
    c2:=StrToInt(Item2.Caption);
    if c1>c2 then result:=1 else
    if c1<c2 then result:=-1 else result:=0;
  except

Result:=lstrcmp(PChar(TListItem(Item1).Caption),PChar(TListItem(Item2).Caption));
  end;
end;

ale potreboval bych udelat i sort druheho sloupecku ktery taky
obsahuje cisla. Skousel jsem to udelat takto ale asi jsem to
nepochopil jako to ma byt.

function CustomSortProc2(Item1, Item2: TListItem; ParamSort: integer): integer;
stdcall;
var
  c1,c2:integer;
begin
  try
    c1:=StrToInt(Item1.Caption);
    c2:=StrToInt(Item2.Caption);
    if c1>c2 then result:=1 else
    if c1<c2 then result:=-1 else result:=0;
  except

Result:=lstrcmp(PChar(TListItem(Item1).Subitems[0]),PChar(TListItem(Item2).Subitems[0]));
end;
end;

POradi mi nekdo jak to ma byt. Nebo nejlepe jak to funguje s tim
sortem v listview.

Diky MIlan